home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestGraphics < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.2 KB  |  57 lines
  1. scr <- Screen new
  2. scr setScreenModeID: 16r40D20001
  3. scr            open: 'TestScreen'
  4.  
  5. win <- Window new: 'TestWindow'
  6.  
  7. win setFlags:       16r100F
  8. win setIDCMPFlags:  16r140
  9. win openOnScreen:   scr
  10.  
  11. scr screenToFront
  12.  
  13. crs <- Colors new: win
  14. crs  makeColorMap: 16
  15. crs    loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  16.  
  17. crs setColorReg: 1 red: 12 green: 12 blue: 12
  18. crs setColorReg: 2 red: 0  green: 0  blue: 8
  19. crs setColorReg: 3 red: 8  green: 8  blue: 8
  20. crs setColorReg: 4 red: 8  green: 0  blue: 8
  21. crs setColorReg: 5 red: 0  green: 8  blue: 8
  22. crs setColorReg: 6 red: 8  green: 8  blue: 0
  23.  
  24. itxt <-IText new: 'Testing Graphics primitives...'
  25.  
  26. itxt setPens:         5   @ 2
  27. itxt setITextOrigin:  100 @ 80
  28.  
  29. win printIText: itxt at: 30 @ 20
  30.  
  31. p1 <- Painter new: win
  32. p1 setAPen: 4
  33.  
  34. p1 movePenTo: 200@20
  35. p1 drawTo:    400@50
  36.  
  37. p1 setAPen: 5
  38. p1 drawBoxFrom: 100@70 to: 150@20
  39.  
  40. p1 setAPen: 6
  41. p1 drawLineFrom: 200@52 to: 400@52
  42.  
  43. p1 setAPen: 5
  44. p1 drawCircle: 400@200 radius: 50
  45.  
  46. p1 setAPen: 8
  47. p1 drawEllipse: 100@200 minaxis: 50 maxaxis: 100
  48.  
  49. p1 drawText: 'Test drawText Method' at: 100@55
  50.  
  51. p1 drawText: 'type:  "win close;scr close" in Command' at: 100@70
  52. p1 drawText: 'String Gadget to exit!' at: 100@80
  53.  
  54. itxt dispose
  55.  
  56. crs dispose
  57.